This AppleScript requires Tex-Edit Plus to work and is based on the "Export Selection" script. The purpose of the script is to insert the HTML tags for bold, italics, and strikethrough into VoodooPad's currently selected text. That's all it does; links are untouched and the underlining is ignored. This is useful for pasting into some bulletin boards and blogs.

Notes:

• For some reason this script seems to take >30 seconds to run, and ActivityMonitor shows the hard drive is not busy. I'm not sure why this is. If anyone knows, I'd appreciate an email to alangenh [at] excite [dot] com. Thanks!
• I seem to have to copy the the clipboard manually before calling the script. Don't know why.

--script to convert text styles in the selection to html tags using Tex-Edit Plus
tell application "VoodooPad"
  activate
  tell application "System Events" to keystroke "c" using command down
end tell
tell application "Tex-Edit Plus"
  activate
  make new document at front
  tell application "System Events" to keystroke "v" using command down
  set temporaryWin to name of front window
  tell window temporaryWin
    replace looking for "^*" looking for styles {style:{bold, italic, underline}} replacing with "<b><i>^*</i></b>"
    replace looking for "^*" looking for styles {style:{bold, italic}} replacing with "<b><i>^*</i></b>"
    replace looking for "^*" looking for styles {style:{bold, underline}} replacing with "<b>^*</b>"
    replace looking for "^*" looking for styles {style:{italic, underline}} replacing with "<i>^*</i>"
    replace looking for "^*" looking for styles {style:bold} replacing with "<b>^*</b>"
    replace looking for "^*" looking for styles {style:italic} replacing with "<i>^*</i>"
    replace looking for "^*" looking for styles {style:outline} replacing with "<strike>^*</strike>"
    replace looking for "^*" looking for styles {style:strikethrough} replacing with "<strike>^*</strike>"
  end tell
end tell